    Dim intCharIndex As Integer
    For intCharIndex = 1 To intNumChars
        Dim strThisChar As String
        strThisChar = Mid(strIn, intCharIndex, 1)
        Debug.Print intCharIndex; strThisChar
        strOut = strOut & strThisChar
    Next